;2008-05-20
;Av Benjamin Ingberg och Patrik Johansson
;
;Väggars hanteringsfil, talar om för alla som krockar/dödar den, att den är en vägg

(define wall%
  (class world-object%
    (init x y)
    (super-new [x x][y y][sprites (list (cons 'default "./sprites/wall/wall.gif"))][w 48][h 48])
    (define/override (get-type)
      'wall)
    (define/override (die board)
      (send board add-world-object (new wall-death% [x (send this get-x)][y (send this get-y)][board board])))))
    